% Delay line filter
% latest date 1.6.3
% ref Meju, M.A. The deep electric structure of graet Glenn fault, PhD Thesis 1988. Univ Edin.

function[TS1] = DelFlt(TS,del),

k = length(TS.matrix);

TS1 = TS;
for i = 1:ProcDef.len,
   TS.matrix(k+1:k+del,:) = TS.matrix(k+1-del:k,:);
TS1.matrix = TS.matrix(del+1:k+del,:)-TS1.matrix;


